home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CICA 1995 August
/
CICA - The Ultimate Collection of Shareware for Windows (Disc 2) (August 1995).iso
/
disc2
/
programr
/
vbasic
/
receipt.exe
/
RECIEPT.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-07-22
|
612b
|
27 lines
' COPYRIGHT:
'
' (C) Copyright Microsoft Corp. 1993. All rights reserved.
'
' You have a royalty-free right to use, modify, reproduce and
' distribute the Sample Files (and/or any modified version) in
' any way you find useful, provided that you agree that
' Microsoft has no warranty obligations or liability for any
' Sample Application Files which are modified.
'
Type InfoType
Info As String * 40
Price As Single
Unit As String * 3
End Type
Global ItemInfo(11) As InfoType
Global Const MAXITEMS = 25
Global NumItems As Integer
Global SalesTax As Single